VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BPuntoVenta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCompania"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private mvarsnomImpresora As String 'copia local
Private mvarsSerImpresora As String 'copia local
Private mvarnNumBoleta As Long 'copia local
Private mvarsDireccion As String 'copia local
Private mvarsTelefono As String 'copia local
Private mvarsSerie As String 'copia local

Friend Property Let sSerie(ByVal vdata As String)
    mvarsSerie = vdata
End Property

Friend Property Get sSerie() As String
    sSerie = mvarsSerie
End Property

Friend Property Let sTelefono(ByVal vdata As String)
    mvarsTelefono = vdata
End Property

Friend Property Get sTelefono() As String
    sTelefono = mvarsTelefono
End Property

Friend Property Let sDireccion(ByVal vdata As String)
    mvarsDireccion = vdata
End Property

Friend Property Get sDireccion() As String
    sDireccion = mvarsDireccion
End Property

Friend Property Let nNumBoleta(ByVal vdata As Long)
    mvarnNumBoleta = vdata
End Property

Friend Property Get nNumBoleta() As Long
    nNumBoleta = mvarnNumBoleta
End Property

Friend Property Let sSerImpresora(ByVal vdata As String)
    mvarsSerImpresora = vdata
End Property

Friend Property Get sSerImpresora() As String
    sSerImpresora = mvarsSerImpresora
End Property

Friend Property Let snomImpresora(ByVal vdata As String)
    mvarsnomImpresora = vdata
End Property

Friend Property Get snomImpresora() As String
    snomImpresora = mvarsnomImpresora
End Property


